home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / misc / gms_dev.lha / GMSDev / Source / AMOS / Moire.amos < prev    next >
Encoding:
Text File  |  1998-10-10  |  2.0 KB  |  62 lines
  1. '
  2. '                            ________ ___      ________
  3. '                           /       //  /____ / ___ _ /
  4. '             ______ _ _ _ /    ___//   __  //    ___/ _ _ _ ______
  5. '   __________)            \___/~\  \__/~/ / \_  /~~\             (__________
  6. '  |                        /_____\  /__/__\  /______\                       | 
  7. '  |                        ¯~~~~~¯  ¯~~ ~~¯  ¯~~~~~~¯                       | 
  8. '  |                    ________ ________ ________ ________                  | 
  9. '  |                   /       //_____  //   _   // ___ _ /                  | 
  10. '  |                  /  _____//¯   _  //   /~ _//    ___/                   | 
  11. '  |                  \_ \~~/  \_ _/~ / \__/ / \ \_  /~~\                    | 
  12. '  ¦                   /____\   /_____\   /_/___\ /______\                   ¦ 
  13. '  ¦                   ¯~~~~¯   ¯~~~~~¯   ¯~¯~~~¯ ¯~~~~~~¯                   ¦ 
  14. '  :_______ ________ ________ ________ ________ ________ _____ ________ _____:__ 
  15. ' / ___ _ //  /    //       // ___ _ //       //       //  _ //   _   //       / 
  16. '/    ___//  / _ _//    ___//    ___//    _ _//   ____//   ~//   /~__//    _ _/
  17. '\_  /~~\ \_  /~ \ \___/~\  \_  /~~\ \_  /~ \ \___~~\  \___/ \_ /  \  \_  /~ \ 
  18. ' /______\ /_/____\ /_____\  /______\ /_/____\ /_____\ /__\   /_____\  /_/____\
  19. ' ¯~~~~~~¯ ¯~¯~~~~¯ ¯~~~~~¯  ¯~~~~~~¯ ¯~¯~~~~¯ ¯~~~~~¯ ¯~~¯   ¯~~~~~¯  ¯~¯~~~~¯
  20. '  ¦                                                                         ¦ 
  21. '  |____________________________________________.[.the.game.extension.]._____| 
  22. '
  23. '
  24. '
  25. ' Morie.c ported to amos in less than 5 mins,
  26. ' small and short TGE demo.
  27. '
  28.  
  29.  
  30. G Init Gms 
  31. G Def Palette 0,0,$505050,$707070,$F0F0F0,0,0,0,0
  32. G Screen Open 0,320,256,8,Glowres
  33.  
  34. While G Left Click<>True
  35.    
  36.    MX=Rnd(320)
  37.    MY=Rnd(256)
  38.    For I=0 To 320
  39.       C=I-((I/3)*3)
  40.       G Line MX,MY To 0,I,C
  41.       G Line MX,MY To 320,I,C
  42.       
  43.    Next I
  44.    
  45.    For I=1 To 320
  46.       C=I-((I/3)*3)
  47.       G Line MX,MY To I,0,C
  48.       G Line MX,MY To I,256,C
  49.    Next I
  50.    Wait 50
  51.    G Cls 
  52.  
  53. Wend 
  54.  
  55.  
  56.  
  57.  
  58. G Screen Close 0
  59.  
  60.  
  61.  
  62.